program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
    pelement = ^element;
    element =  record
        value : Integer;
        next : pelement;
    end;

procedure DELETE_FROM_END()
    var
        Iterator : pelement;
    begin
        Iterator = head^;
        while(Iterator.next^.next^ <> nil) do
            Iterator = Iterator.next^;
        Dispose(Iterator.next^);
        Iterator.next := nil;
    end;

var
  head : pelement;

begin
   New(head);
   head^.value := 3;
   






end.
